home *** CD-ROM | disk | FTP | other *** search
/ Chip 2000 July / CHIP Turkiye Temmuz 2000.iso / prog / share / 02 / ARCHIVE.Z / AIRes.dll / TEXT / 1019 < prev    next >
Text File  |  1998-10-05  |  13KB  |  646 lines
  1. %%BeginProcSet: Adobe_ColorImage_AI6 1.2 0
  2. userdict /Adobe_ColorImage_AI6 known not
  3. {
  4.     userdict /Adobe_ColorImage_AI6 50 dict put 
  5. } if
  6. userdict /Adobe_ColorImage_AI6 get begin
  7. /initialize { 
  8.     Adobe_ColorImage_AI6 begin
  9.     Adobe_ColorImage_AI6 {
  10.         dup type /arraytype eq {
  11.             dup xcheck {
  12.                 bind
  13.             } if
  14.         } if
  15.         pop pop
  16.     } forall
  17. } def
  18. /terminate { end } def
  19. currentdict /Adobe_ColorImage_AI6_Vars known not {
  20.     /Adobe_ColorImage_AI6_Vars 40 dict def
  21. } if
  22. Adobe_ColorImage_AI6_Vars begin
  23.     /plateindex -1 def
  24.     /_newproc null def
  25.     /_proc1 null def
  26.     /_proc2 null def
  27.     /channelcount 0 def
  28.     /sourcecount 0 def
  29.     /sourcearray 4 array def
  30.     /_ptispace null def
  31.     /_ptiname null def
  32.     /_pti0 0 def
  33.     /_pti1 0 def
  34.     /_ptiproc null def
  35.     /_ptiscale 0 def
  36.     /_pticomps 0 def
  37.     /_ptibuf 0 string def
  38.     /_gtigray 0 def
  39.     /_cticmyk null def
  40.     /_rtirgb null def
  41.     /XIEnable true def
  42.     /XIType 0 def
  43.     /XIEncoding 0 def
  44.     /XICompression 0 def
  45.     /XIChannelCount 0 def
  46.     /XIBitsPerPixel 0 def
  47.     /XIImageHeight 0 def
  48.     /XIImageWidth 0 def
  49.     /XIImageMatrix null def
  50.     /XIRowBytes 0 def
  51.     /XIFile null def
  52.     /XIBuffer1 null def
  53.     /XIBuffer2 null def
  54.     /XIDataProc null def
  55.     /XIVersion 6 def
  56.     /XIColorSpace /DeviceGray def
  57.     /XIColorValues 0 def
  58. end
  59. currentdict /_colorimage known not {
  60.     /colorimage where {
  61.         /colorimage get /_colorimage exch def
  62.     }{
  63.         /_colorimage null def
  64.     } ifelse
  65. } if
  66. /_image systemdict /image get def
  67. /_currenttransfer systemdict /currenttransfer get def
  68. /FourEqual {
  69.     4 index ne {
  70.         pop pop pop false
  71.     }{
  72.         4 index ne {
  73.             pop pop false
  74.         }{
  75.             4 index ne {
  76.                 pop false
  77.             }{
  78.                 4 index eq
  79.             } ifelse
  80.         } ifelse
  81.     } ifelse
  82. } def
  83. /TestPlateIndex {
  84.     Adobe_ColorImage_AI6_Vars begin
  85.         /plateindex -1 def
  86.         /setcmykcolor where {
  87.             pop
  88.             gsave
  89.             1 0 0 0 setcmykcolor systemdict /currentgray get exec 1 exch sub
  90.             0 1 0 0 setcmykcolor systemdict /currentgray get exec 1 exch sub
  91.             0 0 1 0 setcmykcolor systemdict /currentgray get exec 1 exch sub
  92.             0 0 0 1 setcmykcolor systemdict /currentgray get exec 1 exch sub
  93.             grestore
  94.             1 0 0 0 FourEqual { 
  95.                 /plateindex 0 def
  96.             }{
  97.                 0 1 0 0 FourEqual { 
  98.                     /plateindex 1 def
  99.                 }{
  100.                     0 0 1 0 FourEqual {
  101.                         /plateindex 2 def
  102.                     }{
  103.                         0 0 0 1 FourEqual { 
  104.                             /plateindex 3 def
  105.                         }{
  106.                             0 0 0 0 FourEqual {
  107.                                 /plateindex 5 def
  108.                             } if
  109.                         } ifelse
  110.                     } ifelse
  111.                 } ifelse
  112.             } ifelse
  113.             pop pop pop pop
  114.         } if
  115.         plateindex
  116.  end
  117. } def
  118. /concatprocs {
  119.     /packedarray where {
  120.         pop dup type /packedarraytype eq 2 index type
  121.         /packedarraytype eq or
  122.     }{
  123.         false
  124.     } ifelse
  125.     {
  126.         /_proc2 exch cvlit def
  127.         /_proc1 exch cvlit def
  128.         _proc1 aload pop
  129.         _proc2 aload pop
  130.         _proc1 length
  131.         _proc2 length add
  132.         packedarray cvx
  133.     }{
  134.         /_proc2 exch cvlit def
  135.         /_proc1 exch cvlit def
  136.         /_newproc _proc1 length _proc2 length add array def
  137.         _newproc 0 _proc1 putinterval
  138.         _newproc _proc1 length _proc2 putinterval
  139.         _newproc cvx
  140.     } ifelse
  141. } def
  142. /clrspaceissepn {
  143.     type /arraytype eq 
  144. } def
  145. /clrspacegetname {
  146.     dup clrspaceissepn {dup length 2 sub get}{pop ()} ifelse
  147. } def
  148. /clrspacegetalt {
  149.     aload pop pop pop colormake
  150. } def
  151. /clrspacegetcomps {
  152.     dup /DeviceGray eq {
  153.         pop 1
  154.     }{
  155.         dup /DeviceRGB eq {
  156.             pop 3
  157.         }{
  158.             /DeviceCMYK eq {
  159.                 4
  160.             }{
  161.                 1
  162.             } ifelse
  163.         } ifelse
  164.     } ifelse
  165. } def
  166. /clrspacemarksplate {
  167.     dup /DeviceGray eq {
  168.         pop plateindex 3 eq
  169.     }{
  170.         dup /DeviceRGB eq {
  171.             pop plateindex 5 ne
  172.         }{
  173.             dup /DeviceCMYK eq {
  174.                 pop plateindex 5 ne
  175.             }{
  176.                 /findcmykcustomcolor where {
  177.                     pop
  178.                     dup length 2 sub get
  179.                     0.1 0.1 0.1 0.1 5 -1 roll
  180.                     findcmykcustomcolor 1 setcustomcolor
  181.                     systemdict /currentgray get exec
  182.                     1 ne
  183.                 }{
  184.                     pop plateindex 5 ne
  185.                 } ifelse
  186.             } ifelse
  187.         } ifelse
  188.     } ifelse
  189. } def
  190. /colormake {
  191.     dup clrspacegetcomps
  192.     exch 1 index 2 add 1 roll
  193.     dup 1 eq {pop}{array astore} ifelse
  194.     exch
  195. } def
  196. /colorexpand {
  197.     dup clrspacegetname exch
  198.     dup clrspaceissepn {
  199.         clrspacegetalt
  200.         exch 4 1 roll
  201.     }{
  202.         1 3 1 roll
  203.     } ifelse
  204. } def
  205. /colortint {
  206.     dup /DeviceGray eq {
  207.         3 1 roll 1 exch sub mul 1 exch sub exch
  208.     }{
  209.         dup /DeviceRGB eq {
  210.             3 1 roll {1 exch sub 1 index mul 1 exch sub exch} forall pop 3 array astore exch
  211.         }{
  212.             dup /DeviceCMYK eq {
  213.                 3 1 roll {1 index mul exch} forall pop 4 array astore exch
  214.             }{
  215.                 3 1 roll mul exch
  216.             } ifelse
  217.         } ifelse
  218.     } ifelse
  219. } def
  220. /colortocmyk {
  221.     dup /DeviceGray eq {
  222.         pop 1 exch sub 0 0 0 4 -1 roll 4 array astore
  223.     }{
  224.         dup /DeviceRGB eq {
  225.             pop aload pop _rgbtocmyk 4 array astore
  226.         }{
  227.             dup /DeviceCMYK eq {
  228.                 pop
  229.             }{
  230.                 clrspacegetalt colortint colortocmyk
  231.             } ifelse
  232.         } ifelse
  233.     } ifelse
  234. } def
  235. /makeimagedict {
  236.     7 dict begin
  237.         /ImageType 1 def
  238.         /Decode exch def
  239.         /DataSource exch def
  240.         /ImageMatrix exch def
  241.         /BitsPerComponent exch def
  242.         /Height exch def
  243.         /Width exch def
  244.     currentdict end
  245. } def
  246. /stringinvert {
  247.     0 1 2 index length 1 sub {
  248.         dup 2 index exch get 255 exch sub 2 index 3 1 roll put
  249.     } for
  250. } def
  251. /stringknockout {
  252.     0 1 2 index length 1 sub {
  253.         255 2 index 3 1 roll put
  254.     } for
  255. } def
  256. /stringapply {
  257.     0 1 4 index length 1 sub {
  258.         dup
  259.         4 index exch get
  260.         3 index 3 1 roll
  261.         3 index exec
  262.     } for
  263.     pop exch pop
  264. } def
  265. /WalkRGBString {
  266.     0 3 index
  267.     dup length 1 sub 0 3 3 -1 roll {
  268.         3 getinterval {} forall
  269.         5 index exec
  270.         3 index
  271.     } for
  272.     
  273.      5 {pop} repeat
  274. } def
  275. /WalkCMYKString
  276. {
  277.     0 3 index
  278.     dup length 1 sub 0 4 3 -1 roll {
  279.         4 getinterval {} forall
  280.         
  281.         6 index exec
  282.         
  283.         3 index
  284.         
  285.     } for
  286.     
  287.     5 { pop } repeat
  288.     
  289. } def
  290. /StuffRGBIntoGrayString
  291. {
  292.     .11 mul exch
  293.     
  294.     .59 mul add exch
  295.     
  296.     .3 mul add
  297.     
  298.     cvi 3 copy put
  299.     
  300.     pop 1 add
  301. } def
  302. /StuffCMYKIntoGrayString
  303. {
  304.     exch .11 mul add
  305.     
  306.     exch .59 mul add
  307.     
  308.     exch .3 mul add
  309.     
  310.     dup 255 gt { pop 255 } if
  311.     
  312.     255 exch sub cvi 3 copy put
  313.     
  314.     pop 1 add
  315. } def
  316. /RGBToGrayImageProc {    
  317.     Adobe_ColorImage_AI6_Vars begin 
  318.         sourcearray 0 get exec
  319.         dup length 3 idiv string
  320.         dup 3 1 roll 
  321.         
  322.         /StuffRGBIntoGrayString load exch
  323.         WalkRGBString
  324.  end
  325. } def
  326. /CMYKToGrayImageProc {    
  327.     Adobe_ColorImage_AI6_Vars begin
  328.         sourcearray 0 get exec
  329.         dup length 4 idiv string
  330.         dup 3 1 roll 
  331.         
  332.         /StuffCMYKIntoGrayString load exch
  333.         WalkCMYKString
  334.  end
  335. } def
  336. /SeparateCMYKImageProc {    
  337.     Adobe_ColorImage_AI6_Vars begin
  338.         sourcecount 0 ne {
  339.             sourcearray plateindex get exec
  340.         }{            
  341.             sourcearray 0 get exec
  342.             
  343.             dup length 4 idiv string
  344.             
  345.             0 2 index
  346.             
  347.             plateindex 4 2 index length 1 sub {
  348.                 get 255 exch sub
  349.                 
  350.                 3 copy put pop 1 add
  351.                 
  352.                 2 index
  353.             } for
  354.             pop pop exch pop
  355.         } ifelse
  356.  end
  357. } def
  358.     
  359. /ColorImageCompositeEmulator {
  360.     pop true eq {
  361.         Adobe_ColorImage_AI6_Vars /sourcecount get 5 add { pop } repeat
  362.     }{
  363.         Adobe_ColorImage_AI6_Vars /channelcount get 1 ne {
  364.             Adobe_ColorImage_AI6_Vars begin
  365.                 sourcearray 0 3 -1 roll put
  366.             
  367.                 channelcount 3 eq {/RGBToGrayImageProc}{/CMYKToGrayImageProc} ifelse
  368.                 load
  369.          end
  370.         } if
  371.         image
  372.     } ifelse
  373. } def
  374. /colorimage {
  375.     Adobe_ColorImage_AI6_Vars begin
  376.         /channelcount 1 index def
  377.         /sourcecount 2 index 1 eq { channelcount 1 sub } { 0 } ifelse def
  378.         4 sourcecount add index
  379.  end
  380.     
  381.     dup 8 eq exch 1 eq or not {
  382.         /_colorimage load null ne {
  383.             _colorimage
  384.         }{
  385.             Adobe_ColorImage_AI6_Vars /sourcecount get
  386.             7 add { pop } repeat
  387.         } ifelse
  388.     }{
  389.         dup 3 eq TestPlateIndex dup -1 eq exch 5 eq or or {
  390.             /_colorimage load null eq {
  391.                 ColorImageCompositeEmulator
  392.             }{
  393.                 dup 1 eq {
  394.                     pop pop image
  395.                 }{
  396.                     Adobe_ColorImage_AI6_Vars /plateindex get 5 eq {
  397.                         gsave
  398.                         
  399.                         0 _currenttransfer exec
  400.                         1 _currenttransfer exec
  401.                         eq
  402.                         { 0 _currenttransfer exec 0.5 lt }
  403.                         { 0 _currenttransfer exec 1 _currenttransfer exec gt } ifelse
  404.                         
  405.                         { { pop 0 } } { { pop 1 } } ifelse
  406.                         systemdict /settransfer get exec
  407.                     } if
  408.                     
  409.                     _colorimage
  410.                     
  411.                     Adobe_ColorImage_AI6_Vars /plateindex get 5 eq {
  412.                         grestore
  413.                     } if
  414.                 } ifelse
  415.             } ifelse
  416.         }{
  417.             dup 1 eq {
  418.                 pop pop
  419.                 image
  420.             }{
  421.                 pop pop
  422.                 Adobe_ColorImage_AI6_Vars begin
  423.                     sourcecount -1 0 {            
  424.                         exch sourcearray 3 1 roll put
  425.                     } for
  426.                     /SeparateCMYKImageProc load
  427.              end
  428.                 systemdict /image get exec
  429.             } ifelse
  430.         } ifelse
  431.     } ifelse
  432. } def
  433. /proctintimage {
  434.     /_ptispace exch store /_ptiname exch store /_pti1 exch store /_pti0 exch store /_ptiproc exch store
  435.     /_pticomps _ptispace clrspacegetcomps store
  436.     /_ptiscale _pti1 _pti0 sub store
  437.     level2? {
  438.         _ptiname length 0 gt version cvr 2012 ge and {
  439.             [/Separation _ptiname _ptispace {_ptiproc}] setcolorspace
  440.             [_pti0 _pti1] makeimagedict _image
  441.         }{
  442.             [/Indexed _ptispace 255 {255 div _ptiscale mul _pti0 add _ptiproc}] setcolorspace
  443.             [0 255] makeimagedict _image
  444.         } ifelse
  445.     }{
  446.         _pticomps 1 eq {
  447.             {
  448.                 dup
  449.                 {
  450.                     255 div _ptiscale mul _pti0 add _ptiproc 255 mul cvi put
  451.                 } stringapply
  452.             } concatprocs _image
  453.         }{
  454.             {
  455.                 dup length _pticomps mul dup _ptibuf length ne {/_ptibuf exch string store}{pop} ifelse
  456.                 _ptibuf {
  457.                     exch _pticomps mul exch 255 div _ptiscale mul _pti0 add _ptiproc
  458.                     _pticomps 2 add -2 roll
  459.                     _pticomps 1 sub -1 0 {
  460.                         1 index add 2 index exch
  461.                         5 -1 roll
  462.                         255 mul cvi put
  463.                     } for
  464.                     pop pop
  465.                 } stringapply
  466.             } concatprocs false _pticomps
  467.             /_colorimage load null eq {7 {pop} repeat}{_colorimage} ifelse
  468.         } ifelse
  469.     } ifelse
  470. } def
  471. /graytintimage {
  472.     /_gtigray 5 -1 roll store
  473.     {1 _gtigray sub mul 1 exch sub} 4 1 roll
  474.     /DeviceGray proctintimage
  475. } def
  476. /cmyktintimage {
  477.     /_cticmyk 5 -1 roll store
  478.     {_cticmyk {1 index mul exch} forall pop} 4 1 roll
  479.     /DeviceCMYK proctintimage
  480. } def
  481. /rgbtintimage {
  482.     /_rtirgb 5 -1 roll store
  483.     {_rtirgb {1 exch sub 1 index mul 1 exch sub exch} forall pop} 4 1 roll
  484.     /DeviceRGB proctintimage
  485. } def
  486. /tintimage {
  487.     TestPlateIndex -1 eq {
  488.         colorexpand
  489.         3 -1 roll 5 -1 roll {0}{0 exch} ifelse 4 2 roll
  490.         dup /DeviceGray eq {
  491.             pop graytintimage
  492.         }{
  493.             dup /DeviceRGB eq {
  494.                 pop rgbtintimage
  495.             }{
  496.                 pop cmyktintimage
  497.             } ifelse
  498.         } ifelse
  499.     }{
  500.         dup clrspacemarksplate {
  501.             plateindex 5 lt {
  502.                 colortocmyk plateindex get 1 exch sub
  503.                 exch {1 0}{0 1} ifelse () graytintimage
  504.             }{
  505.                 pop exch {0}{0 exch} ifelse 0 3 1 roll () graytintimage
  506.             } ifelse
  507.         }{
  508.             pop pop pop
  509.             {pop 1} 0 1 () /DeviceGray proctintimage
  510.         } ifelse
  511.     } ifelse
  512. } def
  513. /XINullImage {
  514. } def
  515. /XIImageMask {
  516.     XIImageWidth XIImageHeight false
  517.     [XIImageWidth 0 0 XIImageHeight neg 0 0]
  518.     /XIDataProc load
  519.     imagemask
  520. } def
  521. /XIImageTint {
  522.     0 setgray
  523.     XIImageWidth XIImageHeight XIBitsPerPixel
  524.     [XIImageWidth 0 0 XIImageHeight neg 0 0]
  525.     /XIDataProc load
  526.     XIType 3 eq XIColorValues XIColorSpace tintimage
  527. } def
  528. /XIImage {
  529.     0 setgray
  530.     XIImageWidth XIImageHeight XIBitsPerPixel
  531.     [XIImageWidth 0 0 XIImageHeight neg 0 0]
  532.     /XIDataProc load
  533.     XIChannelCount 1 eq {image}{false XIChannelCount colorimage} ifelse
  534. } def
  535. /XG {
  536.     pop pop
  537. } def
  538. /XF {
  539.     13 {pop} repeat
  540. } def
  541. /Xh {
  542.     Adobe_ColorImage_AI6_Vars begin
  543.         gsave
  544.         /XIType exch def
  545.         /XIImageHeight exch def
  546.         /XIImageWidth exch def
  547.         /XIImageMatrix exch def
  548.         0 0 moveto
  549.         XIImageMatrix concat
  550.         XIImageWidth XIImageHeight scale
  551.         
  552.         XIType 1 eq {
  553.             /_lp /null ddef
  554.             _fc
  555.             /_lp /imagemask ddef
  556.         }
  557.         if
  558.         /XIVersion 7 def
  559.  end
  560. } def
  561. /XH {
  562.     Adobe_ColorImage_AI6_Vars begin
  563.         /XIVersion 6 def
  564.         grestore
  565.  end
  566. } def
  567. /XIEnable {
  568.     Adobe_ColorImage_AI6_Vars /XIEnable 3 -1 roll put
  569. } def
  570. /XC {
  571.     Adobe_ColorImage_AI6_Vars begin
  572.         colormake
  573.         /XIColorSpace exch def
  574.         /XIColorValues exch def
  575.  end
  576. } def
  577. /XI
  578. {
  579.     Adobe_ColorImage_AI6_Vars begin
  580.         gsave
  581.         /XIType exch def
  582.         cvi dup
  583.         256 idiv /XICompression exch store
  584.         256 mod /XIEncoding exch store
  585.         pop pop
  586.         /XIChannelCount exch def
  587.         /XIBitsPerPixel exch def
  588.         /XIImageHeight exch def
  589.         /XIImageWidth exch def
  590.         pop pop pop pop
  591.         /XIImageMatrix exch def
  592.         XIBitsPerPixel 1 eq {
  593.             XIImageWidth 8 div ceiling cvi
  594.         }{
  595.             XIImageWidth XIChannelCount mul
  596.         } ifelse
  597.         /XIRowBytes exch def
  598.         XIEncoding 0 ne XIVersion 6 le and {
  599.             currentfile 128 string readline pop pop
  600.         } if
  601.         XICompression 0 eq {
  602.             /XIBuffer1 XIRowBytes string def
  603.             XIEncoding 0 eq {
  604.                 {currentfile XIBuffer1 readhexstring pop}
  605.             }{
  606.                 {currentfile XIBuffer1 readstring pop}
  607.             } ifelse
  608.         }{
  609.             /XIBuffer1 256 string def
  610.             /XIBuffer2 XIRowBytes string def
  611.             {currentfile XIBuffer1 readline pop (%) anchorsearch {pop} if}
  612.             /ASCIIHexDecode filter /DCTDecode filter
  613.             /XIFile exch def
  614.             {XIFile XIBuffer2 readstring pop}
  615.         } ifelse
  616.         /XIDataProc exch def
  617.         
  618.         XIVersion 6 le {
  619.             0 0 moveto
  620.             XIImageMatrix concat
  621.             XIImageWidth XIImageHeight scale
  622.             XIType 1 eq {
  623.                 /_lp /null ddef
  624.                 _fc
  625.                 /_lp /imagemask ddef
  626.             } if
  627.         } if
  628.         XIEnable {
  629.             XIType 1 eq {
  630.                 XIImageMask
  631.             }{
  632.                 XIType 2 eq XIType 3 eq or {
  633.                     XIImageTint
  634.                 }{
  635.                     XIImage
  636.                 } ifelse
  637.             } ifelse
  638.         }{
  639.             XINullImage
  640.         } ifelse
  641.         grestore
  642.  end
  643. } def
  644. end
  645. %%EndProcSet
  646.